home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Comms & Internet / LinkConverter 1.1.2 / Dialog Director v0.7 / Examples / Poly Buttons.as < prev    next >
Encoding:
Text File  |  1998-01-19  |  1.4 KB  |  25 lines  |  [TEXT/ToyS]
  1. property dlog : {size:[360, 270], name:"Poly Buttons", style:movable dialog, contents:[¬
  2.     {class:push button, bounds:[290, 240, 350, 260], name:"OK"}, ¬
  3.     {class:static text, bounds:[10, 260 - 18, 200, 260]}, ¬
  4.     {class:pict, bounds:[15, 25, 15 + 327, 25 + 197], contents:256}, ¬
  5.     {class:group box, bounds:[10, 6, 175, 156], name:"Click Here…"}, ¬
  6.     {class:poly push button, bounds:[20, 30, 165, 145]}, ¬
  7.     {class:group box, bounds:[185, 6, 350, 156], name:"…Here…"}, ¬
  8.     {class:poly toggle button, bounds:[195, 30, 340, 145], contents:[0, 0, 145, 60, 60, 115, 0, 0]}, ¬
  9.     {class:group box, bounds:[10, 160, 350, 230], name:"…Or Anywhere Here"}, ¬
  10.     {class:poly radio button, bounds:[20, 180, 60, 220], contents:[0, 0, 40, 0, 20, 40, 0, 0], value:true}, ¬
  11.     {class:poly radio button, bounds:[80, 180, 120, 220]}, ¬
  12.     {class:poly radio button, bounds:[140, 180, 180, 220], contents:[0, 0, 30, 0, 40, 20, 20, 40, 0, 30, 0, 0]}, ¬
  13.     {class:poly radio button, bounds:[200, 180, 240, 220], contents:[10, 0, 30, 0, 40, 20, 30, 40, 10, 40, 0, 20, 10, 0]}, ¬
  14.     {class:poly radio button, bounds:[260, 180, 300, 220], contents:[10, 0, 29, 0, 40, 11, 40, 29, 29, 40, 10, 40, 0, 30, 0, 10, 10, 0]} ¬
  15.         ]}
  16.  
  17. --return dd auto dialog dlog with greyscale
  18. dd install with grayscale
  19. set d to dd make dialog dlog
  20. repeat
  21.     set i to dd interact with user
  22.     if i = 1 then exit repeat
  23.     dd set contents of item 2 of d to "Clicked item: " & i
  24. end repeat
  25. dd uninstall